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DO i = 1,L 
A(i) = --- 
END DO 
■.■ = A(n) 
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DO i = 1,L 
A(i) = ..- 
END DO 
A(n) = --. 
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[ PARALLEL DIVISION LOOP ] 

TN = UPE TOTAL NUMBER 
BGN = 1 + TN * (PE NO) 
END = min (L, BGN + TN-1 ) 
DOi = 1, L 
A(i) = -.. 
END DO 

IF (n < BGN OR n > END) 
BARRIER INSTRUCTION 
END IF 
IF (PE 0) 
A(n) = -.- 
END IF 
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